function [R,C,sens]=celdas_flrtwbr(Wp,Qp,G,Wz,seteados)
    R=ones(8,1);
    C=ones(2,1);
    
    if Wp>Wz
       G=G*Wz^2/Wp^2; 
        
    end
    
    
    R(1) = seteados(1);
    R(3) = seteados(2);
    R(4) = seteados(3);
    R(7) = seteados(4);
    R(8) = seteados(5);
    
    
    R(2) = R(3)*R(4)/R(7);
    R(6) = G*R(8);
    C(1) = Qp/(Wp*R(2));
    C(2) = R(7)/(Wz^2*C(1)*R(1)*R(4)*R(8));%
    R(5) = (Qp/R(2))^2*R(1)*R(4)*R(6)*C(2)/C(1);
    
    sens = ones(10,4);
    sens(:,1) = SenFleischerWp();
    sens(:,2) = SenFleischerG();
    sens(:,3) = SenFleischerQ();
    sens(:,4) = SenFleischerWz();
end

function [senWp]= SenFleischerWp()
senWp(1) = -0.5;
senWp(2) = 0;
senWp(3) = 0;
senWp(4) = -0.5;
senWp(5) = 0.5;
senWp(6) = -0.5;
senWp(7) = 0;
senWp(8) = 0;
senWp(9) = -0.5;
senWp(10) = -0.5;
end

function [senWz]= SenFleischerWz()
senWz(1) = -0.5;
senWz(2) = 0;
senWz(3) = 0;
senWz(4) = -0.5;
senWz(5) = 0;
senWz(6) = 0;
senWz(7) = 0.5;
senWz(8) = -0.5;
senWz(9) = -0.5;
senWz(10) = -0.5;
end

function [senG]= SenFleischerG()
senG(1) = 0;
senG(2) = 0;
senG(3) = 0;
senG(4) = 0;
senG(5) = 0;
senG(6) = 1;
senG(7) = 0;
senG(8) = -1;
senG(9) = 0;
senG(10) = 0;    
end

function [senQ]= SenFleischerQ()
senQ(1) = -0.5;
senQ(2) = 1;
senQ(3) = 0;
senQ(4) = 0.5;
senQ(5) = 0.5;
senQ(6) = -0.5;
senQ(7) = 0;
senQ(8) = 0;
senQ(9) = 0.5;
senQ(10) = -0.5;
end